home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 13 / 0 / DISK1304.ZIP / PXL.PAS < prev    next >
Pascal/Delphi Source File  |  1988-05-05  |  3KB  |  68 lines
  1. {$R-}    {Range checking}
  2. {$B-}    {Boolean complete evaluation}
  3. {$S+}    {Stack checking}
  4. {$I+}    {I/O checking}
  5. {$N-}    {No numeric coprocessor}
  6. {$M 32768,65500,655360}
  7.  
  8. program PXL (input, Output);     {Version 1.42 for Turbo Pascal 4.00} {.CP25}
  9.    {Pascal X-ref Lister.  Not copyright.  Enjoy.                        }
  10.    {Programmer: R. N. Wisan, 37 Clinton St., Oneonta, NY 13820          }
  11.    {Options (available via menu or command line):                       }
  12.    {  1. Make a cross-reference of all identifiers.                     }
  13.    {  2. Number lines.                                                  }
  14.    {  3. Mark Turbo Pascal reserved words.                              }
  15.    {     (When both #2 and #3 selected, counts begin/end depth.         }
  16.    {  4. If printer uses #12, feeds out FF before printing if requested.}
  17.    {Makes standard default header containing file name & creation date. }
  18.    {  If user ID found in file PXL.ID, puts that in header, too.  Can   }
  19.    {  take user defined header from PXL.HDR or in body of listed file.  }
  20.    {Paginates automatically or per absolute or conditional page advance.}
  21.    {Takes printer info and list of reserved words from data files:      }
  22.    {  PXL.PRN & PXL.WDS.  Can be set to use internal data instead.      }
  23.    {Can be run from a batch file.  Reports failure as ERRORLEVEL 1.     }
  24.    {Requires DOS 2.00 or higher.                                        }
  25.  
  26. Uses
  27.   Crt,
  28.   Dos,
  29.   PXLINIT,
  30.   PXLMENU,
  31.   PXLLIST;
  32.  
  33. {=========The following values are the ones you may want to adjust===={.CP17}
  34.  
  35. procedure SetUp;
  36. begin
  37.    DataFiles := true;         {True loads printer symbols data from PXL.WDS }
  38.                               {        and reserved word list from PXL.PRN. }
  39.                               {False uses internal data, correct for Epson  }
  40.                               {               printers & Turbo Pascal 4.00. }
  41.    NormalColor  := 2;  {Colors for screen.  NormalColor is for main text,   }
  42.    FrameColor   := 6;  {FrameColor is used for frame, and Background is the }
  43.    Background   := 0;  {same for both.  (PXL doesn't touch a CGA border.)   }
  44.  
  45.    BottomMargin :=  4;  {Number of lines to leave blank at bottom of page.  }
  46.    OutputDevice := 'Prn';          {Printer device --can be any filename or }
  47.                                    {'Prn' or 'LPT1' etc. (Note: no colon!)  }
  48. end; {Setup}
  49.  
  50. {====Don't tinker with things below this line unless you're going in deep===}
  51.  
  52. begin {Main}                                                          {.CP15}
  53.    CursorOff;
  54.    SetUp;
  55.    Initialize;
  56.    Menu;
  57.    if NumberLines or Wide or Mrk or XRef then begin
  58.       if not GotPrnData and (Wide or Mrk or XRef) then
  59.          CantCont(' reading PXL.PRN','Can''t find it on path');
  60.       SetStyle;
  61.       if Mrk or XRef then
  62.          LoadReserv(Reserv);
  63.    end; {if Num...}
  64.    Blank(9,16);
  65.    ListIt;
  66.    ByeBye
  67. end.
  68.